home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol147 / vertigo.bas < prev    next >
Encoding:
BASIC Source File  |  1986-12-16  |  1.1 KB  |  26 lines
  1. 10 'This piece of vertigo-inducing,minimal code,fake high-speed graphics
  2. 11 'was knocked together by D.D. of Brooklyn. It works using the Quadcolor 1
  3. 12 'card. I haven't tried it with the IBM color card. Note the F10 message
  4. 13 'i.e. SCREEN 0,0,0. If you use 'break' to end the program,the 6845
  5. 14 'will not be reset and the screen will remain a mess. Even more
  6. 15 'horrendous effects can be achieved by changing the values in
  7. 16 ' lines 100 and 110.
  8. 20 RANDOMIZE TIMER
  9. 30 KEY OFF
  10. 40 CLS
  11. 50 PRINT "HIT ANY KEY TO START :  ANY KEY TO STOP : USE F10 TO RESTORE SCREEN IF NEED BE
  12. 60 K$=INKEY$:IF K$=""GOTO 60 'hit any key to start
  13. 70 SCREEN 2 'high-res mode
  14. 71 OUT &H3D0,3 'This and the following line screw up the picture
  15. 72 OUT &H3D1,1 'to produce multiple images
  16. 80 ONE=INT(319*RND)
  17. 90 OUT &H3D9,16*RND+1 'change colors
  18. 120 TWO=INT(199*RND)
  19. 130 IF R=5 THEN CLS 'randomly clear screen to avoid overcrowding
  20. 140 R=INT(10*RND)
  21. 150 CIRCLE(ONE,TWO),54*RND 'draw a big circle
  22. 160 RANDOMIZE TIMER
  23. 170 CIRCLE(ONE,TWO),R 'draw a small circle
  24. 180 K$=INKEY$:IF K$<>"" THEN BEEP:SCREEN 0,0,0:END 'hit any key to stop
  25. 190 GOTO 80
  26.